home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Snabelknabel.AMOS / Snabelknabel.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-10-20  |  870 b   |  28 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10. Screen Open 1,320,256,16,Lowres : Flash Off : Curs Off : Hide : Cls 0
  11. Palette $6,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF,$EEE,$DDD,$CCC,$BBB,$AAA,$999,$888,$777,$666,$555,$444,$333,$222,$111,$0,$0
  12. Double Buffer : Autoback 0
  13.  
  14. Do 
  15.  
  16.    C=0
  17.    For A=0 To 70
  18.       X=144+Sin(C*8-C+E)*C/2.7
  19.       Y=110+Cos(C*8+C-E*1.2)*C/2.9
  20.       Paste Bob X,Y,1
  21.       Add C,2
  22.    Next 
  23.    Add E,8
  24.    
  25.    Screen Swap 
  26.    Wait Vbl 
  27.    Cls 0
  28. Loop